﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities
Partial Class GenerarAdicional
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim bean As New BE.RequisicionDTO
        bean.Codigo_Usuario = Session("USUARIO")

        CargarMontoReq(bean)
    End Sub
    Sub CargarMontoReq(ByVal bean As BE.RequisicionDTO)
        Dim capanegocios As New RequisicionBL
        Dim str_error As String
        Try
            gdvRequisiciones.DataSource = capanegocios.listarMontoReq(bean)

            gdvRequisiciones.DataBind()

        Catch ex As Exception
            str_error = capanegocios.CapturaError

            Response.Redirect("Errores.aspx?par=" & str_error)
        Finally
            capanegocios = Nothing

        End Try
    End Sub
End Class
